home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 July
/
1988-07.d64
/
fade in_out
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
458b
|
15 lines
10 rem fade in/out - copyright 1988 compute! publications, inc.
20 rem registers: 32,33
30 v=49152:s=49664:i=s+161:o=s+82:df=s+209
40 pokes+1,3:sysi
50 pokev+32*8+0,0:pokev+33*8+0,0
60 pokev+32*8+1,7:pokev+33*8+1,7
70 pokev+32*8+2,0:pokev+33*8+2,0
80 pokev+18*8,149:pokev+18*8+1,150:pokev+18*8+2,1
90 syss
100 print"[147][144]";:forx=1to12:printspc(15)"fading in":next
110 forx=0to105:pokev+18*8,149-x:pokev+18*8+1,150+x:next
120 print"[147][158]";:forx=1to12:printspc(15)"fading out":next
130 forx=0to105:pokev+18*8,44+x:pokev+18*8+1,255-x:next
140 goto100